DEFCOLOR() (INTEGER)

 Function
  Return the system default color.

 Syntax
  DEFCOLOR()   No arguments are required

 Return Type & Value
  INTEGER
  Returns the system default color as defined in PCBSetup.

 Remarks
  This function is useful in cases where you must pass a color to a
  statement but you want to honor the SysOp's choice of default color for
  the system.  In that case you cannot use the DEFCOLOR statement because
  it does not return a value that you can pass to another statement.

 Examples
  STRING yn
  DEFCOLOR
  CLS
  LET yn = YESCHAR()
  INPUTYN "Continue",yn,DEFCOLOR()
  IF (yn = NOCHAR()) END